Visualization Mpower

fig<-plot_ly(data = databub[-7,], 
        z = ~I(data_2020 -data_2008), 
        x = ~I(mpower_all_2020 - mpower_all_2008), 
        y = ~data_2008,
        size = ~mpower_all_2008,
        text = countries[-7],
    #    color = ~data_2008,
   #     colors = colorRampPalette(c("green", "red")),
        marker = list(symbol = "circle", 
                      sizemode = 'diameter',
                      color = ~(HDI_MHI),
                      reversescale = FALSE,
                      colorscale = "YlOrRd", #"Viridis",  # Specify the desired color scale
                      showscale = TRUE),
        sizes  = c(5, 60)
        ) 

fig<-fig%>%add_markers()
fig <- fig %>% add_text(
  x = ~I(mpower_all_2020 - mpower_all_2008),
  y = ~data_2008,
  z = ~I(data_2020 - data_2008),
  text = ~countries[-7],
  textposition = "top center",
  textfont = list(size = 12),  # Increase the text size to 12
  showlegend = FALSE
)
fig<-fig%>% layout(scene = list(
                      zaxis = list(title = "Difference in Smoking prevalence (2020-2008) (%)"),
                      xaxis = list(title = "Difference in MPOWER scores (2020-2008)"),
                      yaxis = list(title = "Baseline prevalence 2008 (%)")))
fig

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## A marker object has been specified, but markers is not in the mode
## Adding markers to the mode...

fig<-plot_ly(data = databub[-7,], 
        z = ~I(data_2020 -data_2008), 
        x = ~I(mpower_all_2020 - mpower_all_2008), 
        y = ~data_2008,
        size = ~mpower_all_2008,
        text = countries[-7],
    #    color = ~data_2008,
   #     colors = colorRampPalette(c("green", "red")),
        marker = list(symbol = "circle", 
                      sizemode = 'diameter',
                      color = ~(HDI_MHI),
                      reversescale = FALSE,
                      colorscale = "YlOrRd", #"Viridis",  # Specify the desired color scale
                      showscale = TRUE),
        sizes  = c(5, 60)
        ) 

fig<-fig%>%add_markers()
fig <- fig %>% add_text(
  x = ~I(mpower_all_2020 - mpower_all_2008),
  y = ~data_2008,
  z = ~I(data_2020 - data_2008),
  text = ~countries[-7],
  textposition = "top center",
  textfont = list(size = 12),  # Increase the text size to 12
  showlegend = FALSE
)
fig<-fig%>% layout(scene = list(
                      zaxis = list(title = "Difference in Smoking prevalence (2020-2008) (%)"),
                      xaxis = list(title = "Difference in MPOWER scores (2020-2008)"),
                      yaxis = list(title = "Baseline prevalence 2008 (%)")))
fig

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## A marker object has been specified, but markers is not in the mode
## Adding markers to the mode...

Here the size of the marker is the baseline MPOWER score. The color is given by the HDI_MHI clustering presented in notebook 2.